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UNCtAssinro 



ABSTRACT 



In response to Department of Defense queries regarding the effectiveness of graduate 
education for Navy officers at the Naval Postgraduate School (NPS), the Dean of Instruction found 
it necessary to provide a system for tracking Navy graduates. The data for this system was initially 
acquired from the Navy officer personnel data files and a subset was selected by matching with the 
current NPS Navy student population. Design and development of the system includes the Navy 
Officer Master File (OMF) records, Unit Identification Code (UIC) index file, and Billet Sequence 
Code (BSC) index file. The prototype for the OMF is complete and operational for the personnel 
Officer Master File Extract (OMFX) personnel data base maintenance and reporting. 
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I . INTRODUCTION 

There have been various studies contrasting Navy officer 
graduate degrees and subsequent assignments. In order to 
determine the cost effectiveness of providing Naval officers 
with advanced degrees, there is a need to provide a tool for 
tracking their career paths after graduation from government 
sponsored graduate education (or Naval Postgraduate School). 
This menu-driven prototype application was developed to 
fulfill that requirement. By providing a data base that is 
easily maintainable and readily accessible for updating billet 
information, trends in the utilization of officers having 
government sponsored graduate degrees can be easily viewed 
through the reporting feature. 

A. REVIEW OF CURRENT PROCESS 

In the face of downsizing U.S. military forces, the 
importance of personnel utilization becomes more critical. 
The current method for reassignment is determined mainly 
between the detailer and the officer. Moreover, the Navy 
officer is in a unique position in that the officer generally 
is required to follow shore duty (Naval Postgraduate School) 
with sea duty. The officer is interested in checking off the 
requirements that the promotion board will be reviewing and 
not concerned with fulfilling a payback tour or pay back 
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billet. The detailer has limited payback billets opened 
concurrently with the rotation cycle of the NPS graduates and 
is concerned with filling positions rather then payback 
requirements. There are specific guidelines for filling 
degree-related billets but no current method for applying 
these guidelines. Moreover, the activity for educating Navy 
officers and the activity for assigning them are two distinct 
commands. At best, a system for tracking NPS Navy officer 
graduates will provide the necessary data to analyze current 
billet assignments. 

B. PURPOSE 

Initially, three questions were to be addressed in this 
study : 

1. What cost effectiveness can be realized by the Navy in 
providing advanced degrees to their Navy officers? 

2 . What measures are currently employed in placing graduate 
Navy officers in applicable billets? 

3. What career trends are reflective of the Navy officer 
following graduation at NPS? 

There have been several papers written regarding cost 
effectiveness of advanced degrees for Navy officers which tend 
to indicate the subjectivity required to make such an 
assessment. For further review, see references 2 and 3. As 
stated previously, there is no unified process for placing 
graduate students. Basically what is available and what is 
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optimal in terms of career advancement are the two influencing 
factors. This would require a process change which is not 
within the scope of this paper (instead of shore to sea; 
institute NPS (shore) to payback (shore) to sea). Thus, this 
paper focused on the tracking of NPS Navy officers. This 
prototype addresses the third question: where do the 

graduates go? By looking at past trends and developing a 
system to track current NPS graduates, future assignments may 
be more efficiently managed. 
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II. PROJECT REVIEW 



There is no formal system analysis and design methodology 
when developing a system using a fourth generation language 
(FOCUS). FOCUS is basically a data base maintenance tool and 
report generator. Three phases are required to develop a 
prototype. They consist of (1) the requirements review, (2) 
data base design, and(3) identifying report requirements. 
Through an iterative process, the system is developed, 
analyzed and modified until requirements have been satisfied 
(the requirements may be modified as the process continues and 
actual application is realized) . 

A. REQUIREMENTS REVIEW 

The hardware and software selection was based on the size 
of the data and availability to end-users. The NFS mainframe 
computer (AMDAHL 6225) was selected and CMS accounts set up to 
utilize existing FOCUS software. The initial data file of 
Navy records and data elements requires approximately 40 
cylinders of storage. Therefore, a subset of the Officer Navy 
Master File was used. Only current NFS Navy students were 
selected for this prototype and may be expanded to include all 
Navy officers as well as other services as the need requires 
and space allows. 
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The Officer Master File (OMF) maintained by the Defense 
Manpower Data Center (DMDC) was identified as the initial data 
source. These files provided service member data, billet 
data, and educational data. However, the billet sequence code 
required to identify payback billets was not available. 
Further investigation led to a request by the Dean of 
Instruction to Bureau of Personnel (PERS 5G) to change the 
Department of Defense Instruction (DODI) to include this 
service specific data to the DMDC OMF. This information was 
not received in adequate time to develope this prototype. 
Alternatively, menu screens were provided to input a sample of 
officer billet data into the base OMF extract. Ten officers 
having graduated the last two quarters across the 12 
curriculums were requested for entry into the database. 

A UIC file from DMDC was identified and initially 
requested. However, the idea of grouping UICs (like grouping 
zip codes) to identify "where are the graduates going" was 
determined to be too broad to be useful in this analysis . 

The billet information was determined to be classified by 
Bureau of Personnel (BUPERS) and therefore not included in 
this thesis. A billet matrix, used for assigning personnel, 
was provided for informational purposes only and not within 
the scope of developing the personnel data base. 

Ability to develop user reports through a user friendly 
application was requested. A simple menu driven application 
is provided by FOCUS called TABLETALK. This application was 
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provided as an option from the main menu. A listing of the 
individual records in the data base and a summary report were 
provided as options . 

B. DATA BASE DESIGN 

As stated previously, the OMF prototype was developed for 
the personnel data base (OMFX) . Index keys were included for 
later linking to the UIC file and the Billet file. These 
three structures and their elements are summarized in Appendix 
A. 
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1. Personnel Data Base 



The Personnel Data Base referred to as the Officer 
Master file extract (OMFX) consists of four major components: 
(1) the service segment; (2) the individual member segment; 
(3) the billet information segment; and (4) the educational 
segment. The service component identifies the individual 
service or organization: NV - Navy, AR - Army, AF - Air 
Force, CG - Coast Guard, MR - Marines, CIV - Civilian. The 
Navy is the main focus for this study. The next segment, 
member information, contains the individual's social security 
number, abbreviated name, and name as indexes, as well as 
additional personnel data identified in the master file 
description. The billet segment indexes the current unit 
identification code (UIC), the billet sequence code (BSC), and 
the next tour of duty UIC and BSC. This segment provides data 
information for the next two tours of duty since there is a 
requirement to complete a pay back tour within this time 
period. The educational segment contains the officer's last 
two college degree programs and their respective information. 
This was restricted by the initial data uploaded from the OMF 
file. In order to accommodate multiple instances of 
educational data, a unique identifier would need to be 
determined. In reviewing the actual data, a unique identifier 
could not be determined. Officers may attend the same college 
and graduate in two separate majors as well as graduate the 
same time from two different schools. Although this is the 
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exception and not the rule, there would be lost data or 
incomplete data on these students if the index were school or 
date of completion. 

2. Unit Identification Code (UIC) File 

The UIC file would be used to store data from the UIC 
file from DMDC providing address information only. This would 
be helpful if grouping them by geographical area was 
determined to be useful for tacking NFS Navy students. 

3. Billet Sequence Code File 

The BSC would identify specific billet codes 
associated with a UIC. The file would provide subspecialty 
codes associated with each unique UIC/BSC in order to identify 
and link potential billets by subspecialties granted at NFS. 
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III. PROJECT DESIGN AND IMPLEMENTATION 



A. OFFICER MASTER FILE EXTRACT (OMFX) MODEL 

The OMFX model was designed as a tool to provide on-line 
access for end-user reporting. This information was 
normalized into three separate relational data bases. The 
personnel data base was designed to expand its usage to 
include all Navy Officers and all services. An account was 
developed to provide simultaneous access, updating and 
reporting, referred to as a SINK machine (synchronized usage) . 
Multi-usage was implemented for entering test billet data from 
each of the NPS curriculum offices. It appears feasible to 
implement the total Navy force on a single CMS account SINK 
machine. The Navy OMF fixed file required 4 0 cylinders of 
storage. A program account of approximately 50 cylinders and 
a users account of 4 cylinders for each end user would be 
required. The model currently consists of 10 cylinders of 
data and programs and one 4 cylinder user account on the Naval 
Postgraduate School (NPS) mainframe computer. 

B . PROGRAM DEVELOPMENT 

Programs developed in FOCUS consists of a main menu for 
uploading data, maintaining the data base, and reporting. 
Since this was a prototype, backup procedures and backup 
programs were not included. However, security passwords were 
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implemented due to the sensitivity of the data. To view the 
system, refer to the Users Guide at Appendix C. The accounts 
currently set up for this model are temporary accounts . 
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IV. CONCLUSIONS 



The initial requirements of providing a tool to track NPS 
Navy students was realized in the OMFX model. The adding of 
billet information on students graduating from NPS provides 
the information required for tracking but raises the issues of 
entering and maintaining the data as well as keeping duplicate 
information at their respective command levels. At best, 
trends can be reviewed from data gathered at DMDC providing 
that the billet sequence codes can be included in their OMF. 
The timeliness of the data represents a signficiant problem 
worthy of further study. The OMF is a fiscal year file. 
Requirements to have the data quarterly (to include BSC 
information) impact the submitting agency and the supporting 
agency . 

When it is determined how the BSC data is to be included 
(provided through the OMF file or through inputing by 
department curricular offices) and how the data is to be 
maintained current, the basic concept presented to track these 
personnel is feasible. The OMFX model represents a successful 
implementation of a data base with multi-user access. 
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APPENDIX A: DATA DICTIONARY 



A. TABLE 1: DATA FILES 



FILE NAME /TYPE 


DESCRIPTION 


OMF DATA 


Transaction input personnel attributes 


OMFX FOCUS 


On-Line personnel data base. 


OMFUIC FOCUS 


Proposed on-line UIC data base. 


OMFBSC FOCUS 


Proposed on-line BSC data base. 
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B. TABLE 2: OMF DATA FILE DEFINITIONS 



FIELD NAME 


FORMAT 


DESCRIPTION 


REGNO 


15 


Record number extracted from 
master . 


PR GRADE 


A1 


Permanent Grade 


PROMO_STAT 


A4 


Officer's selection/nonselection 
to next higher grade . 


YEAR_GRP 


A2 


Year of precedence for officer 
promotion . 


YG_MYSTERY 

first 


A1 


Year-group of precedence ( 1 = 

increment; 2 = second) 


DESIG 


A4 


Code to categorize officers for 
accounting and statistical 
purposes . 


UNKNOWN 


A1 


Filler 


SEL FY 


A2 


Program Status Fiscal Year 


SEL INCR 


A1 


Program Status FY Increment 


SEL PGM 


A1 


Program Status Program 


SEL CURR 


A3 


Program Status Curriculum 


SEL STAT 


A1 


Program Status Selectee 


GROUP 


A1 


Education History Group Code 


PRESELECT 


A1 


Preselect Indicator 


U GRAD VALID 


A1 


Undergraduate Valid 


FY SELECTED 


A2 


Fiscal Year Selected 


INCR SELECT 


A1 


FY Increment Selected 


PGM SELECT 


A1 


Program Selected 


CURRIC SEL 


A3 


Curriculum Selected 


SELECT STAT 


A1 


Selection Status 


J YR SEL 


A1 


Junior Year Selected 


J STATUS 


A1 


Junior Year Status 


J COLLEG 


A2 


Junior Service College 


J FYELIG 


A2 


Junior FY Eligible 


S YR SEL 


A1 


Senior Year Selected 


S STATUS 


A1 


Senior Status 


S COLLEG 


A2 


Senior Service College 


S FYELIG 


A2 


Senior FY Eligible 


PRI DUTY 


A14 


Primary Duty (Billet Title) 


BSC 


A5 


Billet Sequence Code (Not 

Provided) 


GRE YEAR 


A1 


Graduate Record Exam Year 


COLLEGE 1 


AlO 


Current College (Monterey) 


DURATINl 


A2 


Duration 


YRCOMPl 


A2 


Year Completed 


SPONSRl 


A1 


Sponsor Code 


LEVEL 1 


A1 


Level 


MAJOR 1 


A2 


Major 


SPECl 


A2 


Specialty 



13 



COLLEGE 2 


AlO 


Previous College 


DURATIN2 


A2 


Duration 


YRCOMP2 


A2 


Year Completed 


SPONSR2 


A1 


Sponsor Code 


LEVEL2 


A1 


Level 


MAJOR2 


A2 


Major 


SPEC2 


A2 


Specialty 


SUBSPECl 


AS 


First Subspecialty 


SUBSPEC2 


AS 


Second Subspecialty 


SUBSPEC3 


AS 


Third Subspecialty 


SSUHIST 


A8 


Subspecialty Utilization History 


NOB CODEl 


A4 


Navy Office Billet Code (NOBC) 


NOB STA CODl 


A3 


NOBC Station Code 


NOB CLASS 1 


A2 


NOBC Class (MOS) 


NOB KEYl 


A1 


NOBC Key 


NOB_CODE2 


A4 


(Group 2 thru 6 same as NOBC group 
1) 


NOBC STA COD2 


A3 


NOB CLASS2 


A2 




NOB KEY2 


Al 




NOB CODE3 


A4 




NOB STA COD 3 


A3 




NOB CLASS3 


A2 




NOB KEY3 


Al 




NOB CODE4 


A4 




NOB STA COD4 


A3 




NOB CLASS4 


A2 




NOB KEY4 


Al 




NOB CODES 


A4 




NOB STA CODS 


A3 




NOB CLASSS 


A2 




NOB KEYS 


Al 




NOB CODES 


A4 




NOB STA COD6 


A3 




NOB CLASSS 


A2 




NOB KEYS 


Al 




APC 


A3 


Not Used 


DOD LOSS COD 


A3 


DOD LossCode 


SEX 


Al 


Gender (1 - Male; 2 - Female) 


NOBC COUNTER 


A2 


NOBC Counter 


PGU UTIL 


Al 


Pay Grade Utilization Code 


ACTUAL_UIC 


AS 


Actual Unit Identification Code 






(UIC) 


PARENT UIC 


AS 


Parent UIC 


UIC XFERD TO 


AS 


UIC Transfered To 


AQD^COUNTER 


A2 


Additional Qualification 


Designator 




(AQD) Counter 


AQDDATEl 


A2 


AQD Year 


AQDl 


A3 


AQD Code 


AQDDATE2 


A2 


(Group 2 thru 12 same as AQD group 



1 ) 
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AQD2 


A3 


AQDDATE3 


A2 


AQD3 


A3 


AQDDATE4 


A2 


AQD4 


A3 


AQDDATE5 


A2 


AQD5 


A3 


AQDDATE6 


A2 


AQD6 


A3 


AQDDATE7 


A2 


AQD7 


A3 


AQDDATE8 


A2 


AQD8 


A3 


AQDDATE9 


A2 


AQD9 


A3 


AQDDATEIO 


A2 


AQDIO 


A3 


AQDDATEll 


A2 


AQDll 


A3 


AQDDATE12 


A2 


AQD12 


A3 


SSN 


A9 


NAME 


A27 


YOS 


A1 



Social Security Number 
Last First Middle 
Years of Service 
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C. TABLE 3: OMF MASTER FILE 



FILE=OMF, SUFFIX=FIX 



FIELD=RECNO 


t 


,I5,$ 


FIELD=PR GRADE 


,ALIAS=PG 


,A1,$ 


FIELD=PROMO STAT 


9 


,A4,$ 


FIELD=YEAR GRP 


,ALIAS=YG 


,A2,$ 


FIELD=YG MYSTERY 


9 


,A1,$ 


FIELD=DESIG 


9 


,A4,$ 


FIELD=UNKNOWN 


9 


,A1,$ 


FIELD=SEL FY 


9 


,A2,$ 


FIELD=SEL INCR 


9 


,A1,$ 


FIELD=SEL PGM 


9 


,A1,$ 


FIELD=SEL CURR 


9 


,A3,$ 


FIELD=SEL STAT 


9 


,A1,$ 


FIELD=GROUP 


9 


,A1,$ 


FIELD=PRESELECT 


9 


,A1,$ 


FIELD=U GRAD VALID, 


,A1,$ 


FIELD=FY SELECTED 




,A2,$ 


FIELD=INCR SELECT 


1 


,A1,$ 


FIELD=PGM SELECT 


9 


,A1,$ 


FIELD=CURRIC SEL 


9 


,A3,$ 


FIELD=SELECT STAT 


1 


,A1,$ 


FIELD=J YR SEL 


9 


,A1,$ 


FIELD=J STATUS 


9 


,A1,$ 


FIELD=J COLLEG 


9 


,A2,$ 


FIELD=J FYELIG 


9 


,A2,$ 


FIELD=S YR SEL 


9 


,A1,$ 


FIELD=S STATUS 


9 


,A1,$ 


FIELD=S COLLEG 


9 


,A2,$ 


FIELD=S FYELIG 


9 


,A2,$ 


FIELD=PRI DUTY 


9 


,A14,$ 


FIELD=BSC 


9 


,A5,$ 


FIELD=GRE YEAR 


9 


,A1,$ 


FIELD=COLLEGEl 


9 


,A10,$ 


FIELD=DURATIN1 


9 


,A2,$ 


FIELD=YRCOMPl 


9 


,A2,$ 


FIELD=SPONSRl 


9 


,A1,$ 


FIELD=LEVEL1 


9 


,A1,$ 


FIELD=MAJORl 


9 


,A2,$ 


FIELD=SPEC1 


9 


,A2,$ 


FIELD=COLLEGE2 


9 


,A10,$ 


FIELD=DURATIN2 


9 


,A2,$ 


FIELD=YRCOMP2 


9 


,A2,$ 


FIELD=SPONSR2 


9 


,A1,$ 


FIELD=LEVEL2 


9 


,A1,$ 


FIELD=MAJOR2 


9 


,A2,$ 


FIELD=SPEC2 


9 


,A2,$ 


FIELD=SUBSPEC1 


,ALIAS=SSC1 


,A5,$ 


FIELD=SUBSPEC2 


,ALIAS=SSC2 


,A5,$ 


FIELD=SUBSPEC3 


,ALIAS=SSC3 


,A5,$ 
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FIELD=SSUHIST , , A8 , $ 
FIELD=N0B_C0DE1 , , A4 , $ 
FIELD=N0B_STA_C0D1 , , A3 , $ 
FIELD=N0B_CLASS1 , ,A2,$ 
FIELD=N0B_KEY1 , ,A1,$ 
FIELD=N0B_C0DE2 , , A4 , $ 
FIELD=N0B_STA_C0D2 , , A3 , $ 
FIELD=N0B_CLASS2 , ,A2,$ 
FIELD=N0B_KEY2 , ,Al,$ 
FIELD=N0B_C0DE3 , ,A4,$ 
FIELD=N0B_STA_C0D3 , , A3 , $ 
FIELD=N0B_CLASS3 , , A2 , $ 
FIELD=N0B_KEY3 , ,A1,$ 
FIELD=N0B_C0DE4 , ,A4,$ 
F IELD=N0B_STA_C0D4 , , A3 , $ 
FIELD=N0B_CLASS4 , ,A2,$ 
FIELD=N0B_KEY4 , ,Al,$ 
FIELD=N0B_C0DE5 , ,A4,$ 
FIELD=N0B_STA_C0D5 , , A3 , $ 
FIELD=N0B_CLASS5 , ,A2,$ 
FIELD=N0B_KEY5 , ,A1,$ 
FIELD=N0B_C0DE6 , , A4 , $ 
FIELD=N0B_STA_C0D6 , , A3 , $ 
FIELD=N0B_CLASS6 , ,A2,$ 
FIELD=N0B_KEY6 , ,A1,$ 
FIELD=APC , ,A3,$ 
FIELD=DOD_LOSS_COD, , A3 , $ 
FIELD=SEX , ,A1,$ 
FIELD=NOBC_COUNTER , , A2 , $ 
FIELD=PGU_UTIL , ,A1,$ 
FIELD=ACTUAL_UIC , ALIAS=AUIC , A5 , $ 
FIELD=PARENT_UIC ,ALIAS=PUIC , A5 , $ 
FIELD=UIC_XFERD_TO,ALIAS=XUIC , A5, $ 
FIELD=AQD_COUNTER , , A2 , $ 
FIELD=AQDDATE1 , , A2 , $ 
FIELD=AQD1 , ,A3,$ 
FIELD=AQDDATE2 , ,A2,$ 
FIELD=AQD2 , ,A3,$ 
FIELD=AQDDATE3 , ,A2,$ 
FIELD=AQD3 , ,A3,$ 
FIELD=AQDDATE4 , ,A2,$ 
FIELD=AQD4 , ,A3,$ 
FIELD=AQDDATE5 , ,A2,$ 
FIELD=AQD5 , ,A3,$ 
FIELD=AQDDATE6 , , A2 , $ 
FIELD=AQD6 , ,A3,$ 
FIELD=AQDDATE7 , , A2 , $ 
FIELD=AQD7 , ,A3,$ 
FIELD=AQDDATE8 , , A2 , $ 
FIELD=AQD8 , ,A3,$ 
FIELD=AQDDATE9 , , A2 , $ 
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FIELD=AQD9 


,A3,$ 


FIELD=AQDDATE10 , 


,A2,$ 


FIELD=AQD10 


,A3,$ 


FIELD=AQDDATE11 , 


,A2,$ 


FIELD=AQD11 


,A3,$ 


FIELD=AQDDATE12 , 


,A2,$ 


FIELD=AQD12 


,A3,$ 


FIELD=SSN 


,A9,$ 


FIELD=NAME 


,A27, 


FIELD=YOS 


,A1,$ 



END 
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TABLE 4: OHFX MASTER FILE 



FILE=OMFX, SUFFIX=FOC, $ 



SEGNAME=SERVICE , SEGTYPE=S1 

FIELD=SVC , ,FORMAT=A3 , FIELDTYPE=I , 

DESCRIPTION=' Individual service or organization', 

TITLE= ' SVC ' , 

ACCEPT='NV ' OR 'AR ' OR 'AF ' OR 'CG ' OR 'MC ' OR 'CIV' , 
HELP= '*** Service must be NV, AR, AF, CG, MC, OR CIV ***' ,$ 

FIELD=ALUM_FLG , ,FORMAT=Al , 

DESCRIPTION='NPS Alunini ' , 

TITLE=' Alumni' ,$ 

FIELD=ALUM_DATE , , FORMAT=I4YM, 

DESCRIPTION='Year Month Graduated from NPS', 

TITLE=' Alumni, Grad Date' ,$ 



SEGNAME=MEMBER , SEGTYPE=S 1 , PARENT=SERVICE 

FIELD=SSN , ,F0RMAT=A9 ,FIELDTYPE=I 

FIELD=NAME_SHORT ,ALIAS=NM_S , F0RMAT=A8 , FIELDTYPE=I , 
DESCRIPTION=' First 8 letters of name field ' 
FIELD=NAME ,ALIAS=NM , FORMAT=A27 , FIELDTYPE=I , 

DESCRIPTION='Last First Middle', 

TITLE='Name ' 



FIELD=FILE_DATE ,ALIAS=FY ,F0RMAT=I4YY , 

DESCRIPTION='Year of Officer Master File Extracted From' 
FIELD=GENDER ,ALIAS=SEX ,F0RMAT=A1, 

DESCRIPTION= ' F - Female, M - Male', 

TITLE=' Gender' 



FIELD=DOD_LOSS_COD , ALIAS=ETS 
FIELD=YOS 

FIELD=PR_GRADE ,ALIAS=PG 

FIELD=PROMO_STAT , 

FIELD=YEAR_GRP ,ALIAS=YG 

FIELD=DESIG 

FIELD=SEL_FY 

FIELD=SEL_INCR , 

FIELD=SEL_PGM 

FIELD=SEL_CURR 

FIELD=SEL STAT 



, FORMAT=A3 
, F0RMAT=A1 
, F0RMAT=A1 
, F0RMAT=A4 
, FORMAT=A2 
, F0RMAT=A4 
, F0RMAT=A2 
, F0RMAT=A1 
, F0RMAT=A1 
, F0RMAT=A3 
,FORMAT=Al 



,$ 









SEGNAME=B ILLET , SEGTYPE=S 1 , PARENT=MEMBER 
FIELD=UIC_ACTUAL , ALIAS=AUIC , F0RMAT=A5 
FIELD=BSC , , F0RMAT=A5 

FIELD=UIC_PARENT , ALIAS=PUIC , F0RMAT=A5 
FIELD=UIC1_X_T0, ALIAS=XUIC1 , F0RMAT=A5 
FIELD=BSC1_X_T0, ALIAS=XBSC1 , F0RMAT=A5 
FIELD=PAY1_BACK , , F0RMAT=A1 , 

DESCRIPTION='PAY BACK TOUR OR BILLET' 
TITLE=' FIRST, TOUR' , 

ACCEPT= 0 TO 4, 

HELP= •*** PAY BACK MUST 
FIELD=SP0NS1_NM , 

FIELD=SP0NS1_ADDR1 , 

FIELD=SP0NS1_ADDR2 , 

FIELD=SP0NS1_ADDR3 , 

FIELD=SP0NS1_CITY, 

FIELD=SPONS 1_STATE , 

FIELD=SP0NS1_ZIP, 

FIELD=RPT1_DATE , 

FIELD=UIC2_X_T0 , ALIAS=XUIC2 , F0RMAT=A5 
FIELD=BSC2 X T0,ALIAS=XBSC2 ,FORMAT=A5 



,FIELDTYPE=I 

,FIELDTYPE=I 

,FIELDTYPE=I 

,FIELDTYPE=I 



BE 1, 2, 3, OR 
,FORMAT=A27 
,FORMAT=A20 
,FORMAT=A20 
,FORMAT=A20 
,FORMAT=A20 
, F0RMAT=A2 
,FORMAT=A10 
,F0RMAT=I4YM 



, FIELDTYPE=I 
, FIELDTYPE=I 
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FIELD=PAY2_BACK , ,F0RMAT=A1, 

DESCRIPTION= ' PAY BACK TOUR OR BILLET', 

TITLE= ' SECOND , TOUR ' , 

ACCEPT= 0 TO 4, 

HELP= '*** PAY BACK MUST BE 1, 2, 3, OR 4 ***' ,$ 

FIELD=SPONS2_NM , ,FORMAT=A27 ,$ 

FIELD=SPONS2_ADDRl, ,FORMAT=A20 ,$ 

FIELD=SPONS2_ADDR2, ,FORMAT=A20 ,$ 

FIELD=SPONS2_ADDR3, ,FORMAT=A20 ,$ 

FIELD=SPONS2_CITY, ,FORMAT=A20 ,§ 

FIELD=SPONS2_STATE, , FORMAT=A2 ,$ 

FIELD=SPONS2_ZIP, ,FORMAT=A10 ,$ 

FIELD=RPT2_DATE , , FORMAT=I4YM ,$ 

FIELD=SUBSPEC1 , ALIAS=SSC1 , FORMAT=A5 ,FIELDTYPE=I ,$ 

FIELD=SUBSPEC2 , ALIAS=SSC2 , FORMAT=A5 , FIELDTYPE=I ,$ 

FIELD=SUBSPEC3 , ALIAS=SSC3 , FORMAT=A5 ,FIELDTYPE=I ,$ 

FIELD=PGU_UTIL , ,FORMAT=Al ,$ 

DEFINE UICBSC/AIO = UIC_ACTUAL || BSC ; $ 

SEGNAME=SCHOOLS , SEGTYPE=S 1 , PARENT=MEMBER 

FIELD=COLLEGEl , ,FORMAT=A10 ,$ 

FIELD=YRCOMPl , , FORMAT=A2 ,$ 

FIELD=LEVEL1 , , FORMAT=Al ,$ 

FIELD=MAJORl , , FORMAT=A2 ,$ 

FIELD=SPEC1 , ,FORMAT=A2 ,$ 

FIELD=COLLEGE2 , ,FORMAT=A10 ,$ 

FIELD=YRCOMP2 , , FORMAT=A2 ,$ 

FIELD=LEVEL2 , , FORMAT=Al ,$ 

FIELD=MAJOR2 , , FORMAT=A2 ,$ 

FIELD=SPEC2 , , FORMAT=A2 ,$ 

END 

DBA=OMFDBA , $ 

USER=OMFRDR , ACCESS=R , $ 

USER=OMFNV ,ACCESS=RW ,$ 
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TABLE 5: UICX MASTER FILE 



FILENAME=UICX, SUFFIX=FOC, $ 



SEGNAME=UICFILE , SEGTYPE=S1 
FIELD=UICSVC 

SEGNAME=UICINFO , SEGTYPE=S1 
FIELD=UIC5 
FIELD=UNKN1 
FIELD=ADDR_LN_NO , 
FIELD=ADDR_L1 
FIELD=ADDR_L2 
F1ELD=ADDR_L3 
FIELD=ADDR_L4 
FIELD=ADDR_L5 
FIELD=STATE 
FIELD=ZIPCODE 
FIELD=ZIPEXTN 
FIELD=SERVICE 
FIELD=COMP 
FIELD=DISTR 
FIELD=CONUS 
FIELD=UNKN2 
FIELD=CNTRYCDE 
FIELD=LOCTN 
FIELD=CONTN 
FIELD=STATE_H 
FIELD=CITY_H 
FIELD=ACTVTY 
FIELD=SEA_SHORE , 
FIELD=MISSION 

END 



$ 

, F0RMAT=A3 
PARENT=UICFILE,$ 

,F0RMAT=A5, FIELDTYPE=I 

, F0RMAT=A2 

,F0RMAT=I1 

,FORMAT=A30 

,FORMAT=A30 

,FORMAT=A30 

,FORMAT=A30 

,FORMAT=A30 

, F0RMAT=A2 

, F0RMAT=A5 

, F0RMAT=A5 

, F0RMAT=A1 

,F0RMAT=A1 

, F0RMAT=A2 

,F0RMAT=A1 

,F0RMAT=A1 

, F0RMAT=A2 

,F0RMAT=A1 

, F0RMAT=A2 

, F0RMAT=A2 

, F0RMAT=A4 

, F0RMAT=A1 

, F0RMAT=A1 

, F0RMAT=A2 



,S 
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TABLE 6: BSCNV MASTER FILE 



FILENAME=BSCNV, SUFFIX=FOC , $ 



SEGNAME=BSCFILE, SEGTYPE=S1 , $ 
FIELD=UICBSC 

SEGNAME=BILLET , SEGTYPE=S 1 , $ 


,FORMAT=A10 ,$ 


FIELD=SUBSPEC 

FIELD=DESCRIP 

FIELD=UIC 

END 


, F0RMAT=A5 , $ 
,FORMAT=A25 ,$ 
,F0RMAT=A5, FIELDTYPE=I ,$ 
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G. TABLE 7: REPORTS 



23 



o 

Uul 

a. 



CM O CO O 
O O h- O O 



o 


1 




1 






< < 


1 O •- 




z < 


1 "j- in CO 


'O 


a. 1 


1 




5 ! 


1 •— in in h- 


O 1 


1 OO oo oo 


oo 



O 

< 



8 



(/> (/) 
z m 

S o 



ot; u 
D CO 
cj m 



qe: t_) 
ID ^ 
O Z3 



55 

O 

55 

O < 
H- a: 
CO 



>->->->- 
LU LU LU LU 

a: or QC or 

UJ UJ LU LU 

c 

z z z z z 

o o o o to 

Z Z Z Z 3 



o o o o o 
S o o o o 

^ r- m 

^ T- o o ^ 



o oo CM ro 

cO K) o o 
0^000 
CM eg o o o 
>0 NO o o o 



CM O OO O 
O O N. O O 



CM K» ^ m 



z z z z z 

<r- CM K» sT in 



Ki 

o 
o ^ 

»— K» 
< CM 
O 

Li- Nj* 

^ O 



CM ro Nt in 

^ ^ ^ ^ ►— 

CO CO (O (O (O 

<: c c c <: 



o •• 

z o 



or < 
O d. 
a. ui 



»“ CM fO 
O O O 
O O O 

o o o 
o o o 
o o o 
o o o 
o o o 
o o o 



<r in 
o o 
o o 
o o 
o o 
o o 
o o 
o o 
o o 



24 



(J\ 

<J\ 



O J 


1 


<N CO VO 


0 


1 








2 3 


1 


OV f-H 


(N 


1 


VO 






EH 


1 




1— ♦ 


1 


(N 






W O 


1 






1 


in 






O EH 


1 






1 








< — 


1 






1 








04 U 


1 






1 








o w 


1 






1 








2 04 


1 






1 








< 2 


1 


0000 


0 


1 


<N 






>H Q 1 


1 






1 


VO 






o: 2 2 


1 






1 


(N 






o w o 


1 






1 








Eh Eh 2 


1 






1 








2 H 


1 






1 








W 43 O 


1 






1 








< 2: 


1 






1 








2 W M 


1 






1 








M 04 2 


1 


<N CO VO 0> 


0 


1 








2 H CO 


1 


0> «-H 


<N 


1 


0 






>H rtj 04 


1 




1—4 


1 


0 




2 2 


Eh Q p2 2 
iJ J 2 H 


1 

1 






1 

1 


10 






O 3 3 


1 






1 






0 0 


O H 


1 






1 






03 03 — 


K O X PJ 


1 






1 






O 4 O 4 2 ^ 


CJ U M Q 


1 






1 






M 2 


CO 04 Cm O 


1 






1 






> M 


CO Cm a 


1 


Q CJ O 4 0 




1 






03 CO 0 > 


Cx3 DQ D 


1 






1 






H 2 --03 0 


EH D CO 


1 






1 






O 4 2 04 03 


< CO CJ 


1 






1 






X 2 M ---O 4 


D - CO 


1 


ro 




1 






M M > 


q o: >H CO 


1 


VO 




1 






W 0 CO 


S pq EH 


1 






1 






Eh 03 2 03 


c2 u q 


1 






1 






CO O 4 1 0 


O H 3 


1 






1 






2 CO EH EH 


H Cm M 


1 






1 






CO CO CJ 


CO Cm O 


1 






1 






0 Cxq CO 0 0 


O O PJ 


1 






1 






2 q 2 O 4 Q 


04 04 


1 






1 








>H CO 


1 


CO 




1 






II II II II II 


q > cQ 


1 


CJ 




1 








3 ^ D 


1 


H 




1 






03 Cm 02 CJ 


> 2 CO 


1 


CO 




1 








< 


1 


X 




1 








2 CO JH 


1 


» 




1 






2 2 


D CO 


1 

1 


O 4 




1 

1 








Q 


1 






1 






0 0 


CiQ 


1 


CO 




1 






03 03 


tg 


1 


pq 




1 






04 04 2 ^ 


H 


1 


u 




1 






M 2 


o: 


1 


2 




1 






EH EH > M 


Q 


1 


pq 




1 






00 0 > 


oi ro o 


1 


H 




1 






2 2 ^03 0 


o o> pLj 


1 


0 




1 






-^2 O 4 03 


(N Eh 


1 


CO 




1 






M O 4 


< fn < 


1 






1 






03 CO > Eh 


Q U 


1 


CO 




1 






M 2 0 0 Eh 


Cm 


1 


2 




1 




• • 


O 4 03 2 0 


2 ^ 


1 


pq 


ro 


1 




CO 


X 2 O 4 >-2 


O o 


1 


EH 


VO 


1 




pq 


MM 




1 


CO 




1 




Q 


Eh CO 


2 


1 


>H 


u 


1 




0 


0 2 oi 


O •• D 


1 


CO 


CO 


1 




CJ 


CO 2 10 


2 Q q 


1 




CO 


1 






2 : CO ^EH EH 


Ct^ b 


1 


CO 




1 




0 


CO CO 0 


EH 05 CJ 


1 


2 


q 


1 




pq 


0 M CO 0 0 


0 : 3 H 


1 


0 


< 


1 


q 


O 4 


2 q 2 O 4 Q 


0 O 4 « 


1 




EH 


1 


< 


CO 




04 pq S 


1 


< 


0 


1 


Eh 


04 


II II II II II 


pq 03 D 


1 




eh 


1 


0 


D 




03 04 0 


1 


s 


♦ 


1 


Eh 


CO 


S 

G 

p 

M 

D 



25 



H. TABLE 8: PROGRAM FILES 



PROGRAM NAME 
STARTSU EXEC 
STARTFOC EXEC 
PROFILE FOCEXEC 

OMFADIOP FOCEXEC 
OMFADllP FOCEXEC 
OMFDAOOO FOCEXEC 
OMFDAIOP FOCEXEC 
OMFDAllP FOCEXEC 
OMFDA12P FOCEXEC 
OMFDA15P FOCEXEC 
OMFDAIOR FOCEXEC 
OMFDA20R FOCEXEC 
USEOMF FOCEXEC 



DESCRIPTION 

Disconnects the Account for SINK setup. 
Links user to FOCUS environment. 
Indentifies data base file and executes 
main menu. 

Creates OMFX FOCUS from OMF FIX. 

Matches with NPS Student Data Base. 

OMF System Main Menu . 

Add module . 

Modify module. 

Delete module. 

Add/Modify UIC and BSC transfer. 

Listing of officers from OMFX. 

Summary of subspecialties from OMFX. 

Sets password and identifies FOCUS file. 
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APPENDIX B 



PROGRAMS 



A. STARTSU EXEC 
CP LINK FOCUS 191 193 
ACC 193 D 

FILEDEF SYSIN TERM 
CP SET RUN ON CP DISCONN 
HLIMAIN &SECRETWORD 
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B . STARTFOC EXEC 
&TRACE OFF 

CP LINK FOCUS 191 193 
ACC 193 P 

CP LINKTO FOCUS 195 
GLOBAL TXTLIB FUSELIB 
EX FOCUS 
& TRACE ON 
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C. PROFILE FOCEXEC 
EX USEOMF 
EX OMFDAOOO 
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D. OMFAOlOP FOCEXEC 



* PROGRAM: OMFADIOP FOCEXEC 

* Date: 15 Jan 1993 J. Harr 

* Description: This is the initial upload program from an Officer 

* Master fixed file provided by DMDC, Bill King. 
********************************************************************* 

-* CMS FILEDEF OMFX DISK OMFX FOCUS D (RECFM F LRECL 890 
CMS FILEDEF OMF DISK OMF DATA D (RECFM F LRECL 316 
CMS FILEDEF OMFDUPS DISK OMFDUPS DATA A (RECFM F LRECL 316 
MODIFY FILE OMFX 
CASE TOP 

LOG DUPL ON OMFDUPS MSG OFF 
LOG INVALID MSG OFF 
COMPUTE VALTEST/Il = ; 

COMPUTE ALUM_FLAG/A1 = ; 

COMPUTE ALUM_DATE/I4YM = ; 

COMPUTE FILE_DATE/I4YY = ; 

COMPUTE UICl_X_TO/A5 = ; 

COMPUTE BSCl_X_TO/A5 = ; 

COMPUTE PAY1_BACK/A1 =; 

COMPUTE SP0NS1_NAME/A27 =; 

COMPUTE SPONS1_ADDR1/A20 = ; 

COMPUTE SPONS1_ADDR2/A20 = ; 

COMPUTE SPONS1_ADDR3/A20 = ; 

COMPUTE SPONS1_CITY/A20 = ; 

COMPUTE SPONSl_ST/A2 = ; 

COMPUTE SPONS1_ZIP/A10 = ; 

COMPUTE RPTl_DATE/I4YM = ; 

COMPUTE UIC2_X_TO/A5 = ; 

COMPUTE BSC2_X_TO/A5 = ; 

COMPUTE PAY2_BACK/A1 =; 

COMPUTE SPONS2_NAME/A27 =; 

COMPUTE SPONS2_ADDR1/A20 = ; 

COMPUTE SPONS2_ADDR2/A20 = ; 

COMPUTE SPONS2_ADDR3/A20 = ; 

COMPUTE SPONS2_CITY/A20 = ; 

COMPUTE SPONS2_ST/A2 = ; 

COMPUTE SPONS2_ZIP/A10 = ; 

COMPUTE RPT2_DATE/I4YM = ; 

COMPUTE SVC/A3 = ; 

COMPUTE NAME_X/A4 = ; 

COMPUTE NAME_SHORT/A8 = ; 

FIXFORM X5 PR_GRADE/A1 PROMO_STAT/A4 YEAR GRP/A2 

FIXFORM XI DESIG/A4 XI SEL_FY/A2 SEL_INCR7a1 SEL_PGM/A1 

FIXFORM SEL_CURR/A3 SEL_STAT/A1 X37 BSC/A5 

FIXFORM XI COLLEGEI/AIO X2 YRCOMP1/A2 

FIXFORM XI LEVELl/Al MAJOR1/A2 SPEC1/A2 

FIXFORM COLLEGE2/A10 X2 YRCOMP2/A2 

FIXFORM XI LEVEL2/A1 MAJOR2/A2 SPEC2/A2 

FIXFORM SUBSPEC1/A5 SUBSPEC2/A5 SUBSPEC3/A5 

FIXFORM X71 DOD_LOSS_COD/A3 GENDER/Al X2 PGU_UTIL/A1 

FIXFORM UIC_ACTUAL/A5 UIC PARENT/A5 

FIXFORM X67 SSN/A9 NAME/A?7 YOS/Al 

COMPUTE FILE_DATE = 1991; 

COMPUTE ALUM_FLAG/A1 = 'Y'; 

COMPUTE ALUM_DATE/I4YM = 0; 

COMPUTE UICl_X_TO/A5 = ' ' ; 

COMPUTE BSCl_X_TO/A5 = ' 

COMPUTE PAY1_BACK/A1 = 'O'; 

COMPUTE SPONSl NAME/A27 = ' 
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COMPUTE SPONS1_ADDR1/A20 = ' 

COMPUTE SPONS1_ADDR2/A20 = ’ 

COMPUTE SPONS1_ADDR3/A20 = ' 

COMPUTE SPONS1_CITY/A20 = ' 

COMPUTE SPONSl_ST/A2 = ' 

COMPUTE SPONS1_ZIP/A10 = ' 

COMPUTE RPT1_DATE/I4YM = 9201; 

COMPUTE UIC2_X_TO/A5 = ' ' ; 

COMPUTE BSC2_X_TO/A5 = ' ' ; 

COMPUTE PAY2_BACK/A1 = ' 0 ' ; 

COMPUTE SPONS2_NAME/A27 = ' ' ; 

COMPUTE SPONS2_ADDR1/A20 = ' 

COMPUTE SPONS2_ADDR2/A20 = ' 

COMPUTE SPONS2_ADDR3/A20 = ' ' ; 

COMPUTE SPONS2_CITY/A20 = ' 

COMPUTE SPONS2_ST/A2 = ' 

COMPUTE SPONS2_ZIP/A10 = ' 

COMPUTE RPT2_DATE/I4YM = 9201; 

COMPUTE SVC = ' NV ' ; 

COMPUTE NAME_X = EDIT(NAME, ' 9999$$$$$$$$$$$$$$$$$$$$$$$ ' ) ; 
COMPUTE NAME_SHORT = EDIT(NAME, ' 99999999$$$$$$$$$$$$$$$$$$$ ') ; 
VALIDATE 

VALTEST = IF COLLEGEl EQ 'MONTEREY' OR COLLEGE2 EQ 'MONTEREY' 
THEN 1 ELSE 0; 

ON INVALID GOTO TOP 
MATCH SVC 

ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH UIC_ACTUAL 

ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH COLLEGEl 

ON NOMATCH INCLUDE 
ON MATCH REJECT 
ENDCASE 
DATA ON OMF 
END 
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E. OMFADllP FOCEZEC 



ir^ititiritiritiritiririritiritiritirititiririrlriritiriririritlritiritiriicitlriiciritiritirititititititititit-tritirititit-k’kititit’kitir 

* PROGRAM: OMFADllP FOCEXEC 

* Date: 15 Mar 1993 J. Harr 

* Description: This upload progreun updates the OMFX file with the 

* navy student match extract . 

********************************************************************* 

-* CMS FILEDEF OMFX DISK OMFX FOCUS D (RECFM F LRECL 890 

CMS FILEDEF OMFIT DISK NOMF FOCTEMP T (RECFM F LRECL 316 

-* CMS FILEDEF OMFDUPS DISK OMFDUPS DATA A (RECFM F LRECL 316 

MODIFY FILE OMFX 

CASE TOP 

LOG DUPL MSG OFF 
LOG INVALID MSG OFF 
COMPUTE VALTEST/Il = ; 

COMPUTE ALUM_FLAG/A1 = ; 

COMPUTE ALUM_DATE/I4YM = ; 

COMPUTE FILE_DATE/I4YY = ; 

COMPUTE UICl_X_TO/A5 = ; 

COMPUTE BSCl_X_TO/A5 = ; 

COMPUTE PAY1_BACK/A1 =; 

COMPUTE SP0NS1_NAME/A27 =; 

COMPUTE SPONS1_ADDR1/A20 = ; 

COMPUTE SPONS1_ADDR2/A20 = ; 

COMPUTE SPONS1_ADDR3/A20 = ; 

COMPUTE SPONS1_CITY/A20 = ; 

COMPUTE SPONSl_ST/A2 = ; 

COMPUTE SPONS1_ZIP/A10 = ; 

COMPUTE RPT1_DATE/I4YM = ; 

COMPUTE UIC2_X_TO/A5 = ; 

COMPUTE BSC2_X_TO/A5 = ; 

COMPUTE PAY2_BACK/A1 =; 

COMPUTE SPONS2_NAME/A27 =; 

COMPUTE SPONS2_ADDR1/A20 = ; 

COMPUTE SPONS2_ADDR2/A20 = ; 

COMPUTE SPONS2_ADDR3/A20 = ; 

COMPUTE SPONS2_CITY/A20 = ; 

COMPUTE SPONS2_ST/A2 = ; 

COMPUTE SPONS2_ZIP/A10 = ; 

COMPUTE RPT2_DATE/I4YM = ; 

COMPUTE SVC/ A3 = ; 

COMPUTE NAME_X/A4 = ; 

COMPUTE NAME_SHORT/A8 = ; 

FIXFORM X5 PR_GRADE/A1 PROMO_STAT/A4 YEAR GRP/A2 

FIXFORM XI DESIG/A4 XI SEL_FY/A2 SEL_INCR7a1 SEL_PGM/A1 

FIXFORM SEL_CURR/A3 SEL_STAT/A1 X37 BSC/A5 

FIXFORM XI COLLEGE 1/AlO X2 YRCOMP1/A2 

FIXFORM XI LEVELl/Al MAJOR1/A2 SPEC1/A2 

FIXFORM COLLEGE2/A10 X2 YRCOMP2/A2 

FIXFORM XI LEVEL2/A1 MAJOR2/A2 SPEC2/A2 

FIXFORM SUBSPEC1/A5 SUBSPEC2/A5 SUBSPEC3/A5 

FIXFORM X71 DOD_LOSS_COD/A3 GENDER/Al X2 PGU_UTIL/A1 

FIXFORM UIC_ACTUAL/A5 UIC_PARENT/A5 

FIXFORM X67 SSN/A9 NAME/A27 YOS/Al 

COMPUTE FILE_DATE = 1991; 

COMPUTE ALUM_FLAG/A1 = 'Y'; 

COMPUTE ALUM_DATE/I4YM = 0; 

COMPUTE UICl_X_TO/A5 = ' 

COMPUTE BSCl_X_TO/A5 = ' 

COMPUTE PAY1_BACK/A1 = 'O'; 

COMPUTE SPONSl NAME/A27 = ' 
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COMPUTE SPONS1_ADDR1/A20 = ' 

COMPUTE SPONS1_ADDR2/A20 = ' 

COMPUTE SPONS1_ADDR3/A20 = ' 

COMPUTE SPONS1_CITY/A20 = ' 

COMPUTE SPONSl_ST/A2 = ' 

COMPUTE SPONS1_2IP/A10 = ' 

COMPUTE RPT1_DATE/I4YM = 9201; 

COMPUTE UIC2_X_TO/A5 = ' ' ; 

COMPUTE BSC2_X_TO/A5 = ' ' ; 

COMPUTE PAY2_BACK/A1 = ' 0 ' ; 

COMPUTE SPONS2_NAME/A27 = ' ' ; 

COMPUTE SPONS2_ADDR1/A20 = ' 

COMPUTE SPONS2_ADDR2/A20 = ' 

COMPUTE SPONS2_ADDR3/A20 = ' 

COMPUTE SPONS2_CITY/A20 = ' 

COMPUTE SPONS2_ST/A2 = ' 

COMPUTE SPONS2_ZIP/A10 = ' 

COMPUTE RPT2_DATE/I4YM = 9201; 

COMPUTE SVC = 'MV ' ; 

COMPUTE NAME_X = EDIT ( NAME 9 999$$$$$$$$$$$$$$ $$$$$$$$$') ; 
COMPUTE NAME_SHORT = EDIT ( NAME 99999999$$$$$$$$$$$$$$$$$$$ ' ) 
MATCH SVC 

ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH UIC_ACTUAL 
ON NOMATCH INCLUDE 
ON MATCH CONTINUE 
MATCH COLLEGEl 

ON NOMATCH INCLUDE 
ON MATCH REJECT 
ENDCASE 
DATA ON OMFIT 
END 
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F. OMFDAOOO FOCEZEC 



_************* REMOVE BEFORE INSTALLATION **************** 
SET PF04 = END 



_ ★ 
-★ 

-★ 
- ★ 
— ★ 
-★ 
— ★ 
_★ 
_★ 
— ★ 
_★ 



Progrcim: OMFDAOOO 

This is the main menu for the Officer Master File system. 



Calls : 

OMFDAIOP 

OMFDAllP 

OMFDA12P 

OMFDA15P 

OMFDA80R 

OMFDA90R 



ADD an Individual Record 

Modify an OMF Record 

Delete an OMF Record 

Add Transfer Data to OMF 

DISPLAY/PRINT AN INDIVIDUAL ( S ) RECORD 

PRINT A SUMMARY REPORT 



SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 



is set to 'NV ' for Navy. 
***** ***** ***** 

***** ***** ***** 

-SET &PFKEY = ' 

-SET &OPTION = ' ' ; 

-SET & :AAA = ' ' ; 

-SET &:BBB = ' 

-SET &CURSOR=' :AAA' ; 

-START 

-CRTFORM 



Note 
.***** 

-SET &&SVC = 'NV 



The Service variable (&&SVC) 
***** ***** ***** 



.***** 



***** 



***** 



***** 



000000000000 


MMMM 


MMMMM 


<0X 


— FFFFFFFFFFF " 










0000000000000000 


MMMM 


MMMMM 


<0X 


—FFFFFFFFFFF " 










00 


00 


MM MM 


MM MM 


FF" 


00 


00 


MM MM 


MM MM 


FFFFFFFFF 


00 


00 


MM MM 


MM MM 


FF" 


00 


00 


MM MMMM MM 


FF" 


0000000000000000 


MM MM 


MM 


FF" 


000000000000 


MM 


MM 


FF" 



_"</02 " 

Naval Postgraduate School 

ti n 



_"</02 " 
n 

-IF &PFKEY = 'PF03' OR 

-BEGIN 

-CRTFORM 

-" OMFDAOOO-1.0 

<D.&DATE/08" 



OFFICER MASTER FILE SYSTEM" 
NAVY" 

Press ENTER to continue" 
PF15' THEN GOTO EXITING; 



Naval Postgraduate School" 



<0X 



OFFICER MASTER FILE SYSTEM" 



OMF MAIN EDIT MENU" 
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</01 



1 . 
2 . 
3. 
4 . 
T. 

X. 



-<& :BBB.CD.&&SVC/02>" 



Add an Individual Record " 
Modify Individual Record " 
Delete Individual Record ” 
Add Transfer Data ” 

Report with TABLETALK 



EXIT” 



Service — > <0X 



OPTION }<&:AAA.C.&OPTION/Ol|{ < . HD . &MSG/44 ” 

-SET &GOBACK= ' BEGIN ' ; 

-SET &MSG = ' 

-SET &&MSGFLAG = ' 

-SET &WHERE=DECODE &0PTI0N(1 'OMFDAIOP' 2 'OMFDAllP' 

3 'OMFDA12P' 4 'OMFDA15P' 

T ' TABLETALK ' 

X 'EXITING' 

R 'EXIT' 

ELSE 'ERRORMSG'); 

-IF &PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

-IF &WHERE EQ 'EXIT' THEN GOTO EXIT; 

-IF &WHERE EQ 'EXITING' THEN GOTO EXITING; 

-IF &WHERE EQ 'TABLETALK' THEN GOTO TABLERPT; 

-* OMFUSE SETS UP THE OMF DATABASE 

-* EX USEOMF 

-* -RUN 

EX &WHERE 

-RUN 

SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 

-GOTO &GOBACK 
-* OPTION T 
-TABLERPT 
TABLETALK 
-RUN 

SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 

-GOTO &GOBACK 
-* OPTION X 
-EXITING 

SET PF03 = END.PF15 = END 

FIN 

-EXIT 



-ERRORMSG 

-SET &MSG = 'OPTION } ' | &OPTION | ' { is incorrect. Please reenter.'; 

-GOTO &GOBACK 

-ERRORMSG2 

-SET &MSG = 'SVC } ' I &&SVC | ' { is incorrect. Please reenter.'; 

-SET &CURSOR = ':BBB'; 

-GOTO &GOBACK 
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OMFDAIOP FOCEXEC 



Program: OMFDAIOP 

-* This program is used to input student personnel data not on initial 
data base. 

— ★ 

Called From; OMFDAOOO FOCEXEC main dirver program menu. 

Files: OMFX FOCUS 

SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 

MODIFY FILE OMFX 
COMPUTE 

DUM/Al = ; 

PFKEY/A4 = ; 

GOTO BEGIN 

CASE BEGIN 
COMPUTE 

TSVC/A3 = 'NV 
TUIC/A5 = '62271'; 

TCOLLEGE/AIO = 'NPS 
CRTFORM LINE 01 TYPE 1 
” OMFDAIOP- 1.1 
&DATE" 



" Create an Officer Master record by entering the following data:" 

n M 

" SSN <T.SSN/09>" 

” SVC: <D.TSVC/03>" 

" CURRENT UIC: <D.TUIC/05>" 

" COLLEGE: <D.TCOLLEGE/10>" 

"</09 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

COMPUTE 

SVC = TSVC; 

UIC_ACTUAL = TUIC; 

COLLEGE 1 = TCOLLEGE; 

MATCH SVC 

ON MATCH TYPE "SVC MATCH " 

ON NOMATCH TYPE "SVC <SVC NOMATCH " 

ON MATCH CONTINUE 
MATCH SSN 

ON MATCH TYPE "SSN <SSN EXISTS " 

ON MATCH REJECT 

ON NOMATCH TYPE "SSN NOMATCH " 

ON NOMATCH GOTO ADDSSN 
ENDCASE 

CASE ADDSSN 
COMPUTE SSN = SSN; 

CRTFORM LINE 01 
" OMFDAIOP- 1.2 
6 DATE" 

n 

It 

" SSN: <D.SSN/09>" 



NAVY POSTGRADUATE SCHOOL <0X 

Officer Master File System" 
Add Screen 2" 



NAVAL POSTGRADUATE SCHOOL <0X 

OFFICER MASTER FILE SYSTEM" 

ADD SCREEN 1" 
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" NAME (LAST FIRST MIDDLE): <T.NAME/27>" 

•• GENDER (F/M): <T.SEX/01> ESTIMATED TIME IN SERVICE (A3): <0X 

<T.ETS/03>" 

M M 

" YOS (123): <T.YOS/Ol> PAY GRADE: <T.PG/01>" 

” PROMOTION STATUS: <T . PROMO_STAT/04>" 

” YEAR GROUP: <T.YG/02> DESIGNATOR: <T.DESIG/04>" 

” SELECTION YEAR: <T . SEL_FY/02> INCREMENT: <0X 

<T. SEL_INCR/01> PROGRAM: <T . SEL_PGM/01>" 

" CURRICULUM: <T . SEL_CURR/0 1> STATUS: <T . SEL_STAT/0 1>" 

"</05 " 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

MATCH SSN 

ON NOMATCH 

COMPUTE NAME_SHORT = EDIT(NAME, ' 99999999$$$$$$$$$$$$$$$$$$ ’) ; 
ON NOMATCH INCLUDE 
ON NOMATCH GOTO ADDUIC 
ENDCASE 



CASE ADDUIC 
COMPUTE SSN = SSN; 

UIC_ACTUAL = AUIC; 

CRTFORM LINE 01 

" OMFDAlOP-1.3 Officer Master File System <0X 

iDATE" 

" Add Screen 3" 



"<.HD.NAME/27>" 

"Please input UIC data..." 

"CURRENT UIC: <D . UIC_ACTUAL/05> CURRENT BSC: <T.BSC/05>" 

"Is this a pay bac)c tour or billet: }<T.PAY1_BACK/01>< " 

"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 

"UIC }<T.UIC1_X_TO/05>{ BSC }<T . BSC1_X_TO/05>{ ETS (YM) }<0X 

<T . RPT 1_D ATE / 0 4 > { " 

"Sponsor Name }<T. SPONSl_NM/27>{ " 

"Sponsor Address }<T. SPONS1_ADDR1/20>{ " 

" }<T.SPONS1_ADDR2/20>{" 

" City }<T.SPONS1_CITY/20>{ State }<0X 

<T.SPONS1_STATE/02>{ Zip }<T . SPONSl_2IP/ 10>{ " 

"FOLLOWING tour of duty:" 

"UIC }<T.UIC2_X_TO/05>{ BSC }<T . BSC2_X_TO/05>< ETS (YM) }<0X 

<T.RPT2_DATE/04>{" 

"Is this a pay back tour or billet: }<T . PAY2_BACK/01>{ " 

"Sponsor Name }<T . SPONS2_NM/27>< " 

"Sponsor Address }<T . SPONS2_ADDR1/20>< " 

" }<T.SPONS2_ADDR2/20>{" 

" City }<T.SPONS2_CITY/20>{ State }<0X 

<T.SPONS2_STATE/02>{ Zip }<T. SPONS2_ZIP/10>{ " 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 



MATCH UIC_ACTUAL 

ON NOMATCH TYPE "AUIC NOMATCH " 
ON MATCH TYPE "AUIC MATCH " 

ON MATCH UPDATE BSC 
ON MATCH GOTO ADDEDU 
ENDCASE 



CASE ADDEDU 
COMPUTE SSN = SSN; 

COLLEGE 1 = COLLEGE 1; 
CRTFORM LINE 01 
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" OMFDAlOP-1.4 Officer Master File System <0X 

&DATE" 

" Add Screen 4" 

M tt 

"<.HD.NAME/27>" 

II II 

"Please input current graduate data:" 

"COLLEGE NAME }<D.COLLEGE1/10>< YEAR COMPLETED }<0X 
<T.YRCOMP1/02>{" 

"Level }<T.LEVEL1/01>{ Major }<T.MAJOR1/02>{ Specialty 

<T.SPECl/02>{" 

It 11 

"Please input previous college data:" 

"College Name }<T.COLLEGE2/10>< Year Completed }<0X 
<T.YRCOMP2/02>{" 

"Level }<T.LEVEL2/01>{ Major }<T.MAJOR2/02>{ Specialty 

<T.SPEC2/02>{" 

"</05 " 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

MATCH SSN 

ON MATCH TYPE "COL SSN MATCH " 

ON NOMATCH TYPE "COL SSN NOMATCH " 

ON MATCH CONTINUE 
MATCH COLLEGE 1 

ON NOMATCH TYPE "** ERROR IN ADDEDU CASE ** " 

ON MATCH TYPE "** <NAME HAS BEEN ADDED TO THE OMF **" 

ON MATCH UPDATE YRCOMPl 
ENDCASE 

CASE ERRMSG 
CRTFORM LINE 1 

" *** Record already in data base. Use Update Menu to MODIFY. *** 

ENDCASE 

DATA 

END 



}<0X 



}<0X 
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OMFDAllP FOCEXEC 



.*******«*******************************************************«******★★ 

Program: OMFDAllP 

-♦ This program is used to modify student personnel data. 

-* Files: OMFX FOCUS 

SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 

MODIFY FILE OMFX 
COMPUTE 

DUM/Al = ; 

PFKEY/A4 = ; 

GOTO BEGIN 



CASE BEGIN 
COMPUTE 

TSVC/A3 = 'NV 
TUIC/A5 = '62271' ; 

TCOLLEGE/AIO = 'NPS 
CRTFORM LINE 01 TYPE 1 

" OMFDAllP-1.1 NAVAL POSTGRADUATE SCHOOL <0X 

&DATE" 

" OFFICER MASTER FILE SYSTEM" 

" Modify Screen 1 ” 

II II 

" Modify an Officer Master record by entering the following data: 



n n 
II 


SSN 


<T.SSN/09>" 


II 


SVC: 


<D.TSVC/03>" 


II 


CURRENT UIC: 


<D.TUIC/05>" 


n 

"</09 


COLLEGE : 


<D. TCOLLEGE /10>" 



" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

COMPUTE 

SVC = TSVC; 

UIC_ACTUAL = TUIC; 

COLLEGE 1 = TCOLLEGE; 

MATCH SVC 

ON MATCH TYPE "SVC MATCH " 

ON NOMATCH TYPE "SVC <SVC NOMATCH " 

ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH GOTO ERRMSG 
ON MATCH TYPE "SSN MATCH " 

ON MATCH GOTO MODSSN 
ENDCASE 



CASE MODSSN 
COMPUTE SSN = SSN; 

CRTFORM LINE 01 

" OMFDAllP- 1.2 NAVY POSTGRADUATE SCHOOL <0X 

&DATE" 



“ Officer Master File System" 

" Modify Screen 2" 

" SSN; <D.SSN/09>" 

" NAME (LAST FIRST MIDDLE): <T,NAME/27>" 

" GENDER (F/M): <T.SEX/01> ESTIMATED TIME IN SERVICE (A3): <0X 

<T.ETS/03>" 
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" YOS (123): <T.YOS/01> PAY GRADE: <T.PG/01>" 

" PROMOTION STATUS: <T . PROMO_STAT/04>" 

" YEAR GROUP: <T.YG/02> DESIGNATOR: <T.DESIG/04>" 

" SELECTION YEAR: <T . SEL_FY/02> INCREMENT: <0X 

<T.SEL_INCR/01> PROGRAM: <T . SEL_PGM/01>" 

" CURRICULUM: <T.SEL_CURR/01> STATUS: <T.SEL_STAT/01>” 

"</05 ” 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

MATCH SSN 

ON MATCH 

COMPUTE NAME_SHORT = EDIT(NAME 99999999$$$$$$$$$$$$$$$$$$ ') ; 

ON MATCH UPDATE NAME_SHORT NAME FY SEX ETS YOS PG PROMO_STAT 
ON MATCH UPDATE YG DESIG SEL_FY SEL_INCR SEL_PGM SEL_CURR SEL_STAT 
ON MATCH GOTO MODUIC 
ENDCASE 



CASE MODUIC 
COMPUTE SSN = SSN; 

UIC_ACTUAL = AUIC; 

CRTFORM LINE 01 

" OMFDAllP-1.3 Officer Master File System <0X 

&DATE" 



" Modify Screen 3" 

"<.HD.NAME/27>" 

"Please input UIC data. . . “ 

"CURRENT UIC: <D . UIC_ACTUAL/05> CURRENT BSC: <T.BSC/05>" 

"Is this a pay back tour or billet: }<T.PAY1_BACK/01>{ " 

"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 

"UIC }<T.UIC1_X_TO/05>{ BSC }<T . BSC1_X_TO/05>{ ETS (YM) }<0X 
<T.RPT1_DATE/04>{ " 

"Sponsor Name }<T.SPONSl_NM/27>{ " 

"Sponsor Address }<T . SPONS1_ADDR1/20>{ " 

" }<T.SPONS1_ADDR2/20>{" 

" City }<T.SPONS1_CITY/20>{ State }<0X 

<T.SPONS1_STATE/02>{ Zip }<T.SPONS1_ZIP/10>< " 

"FOLLOWING tour of duty:” 

"UIC }<T.UIC2_X_TO/05>{ BSC }<T . BSC2_X_TO/05>{ ETS (YM) }<0X 
<T.RPT2_DATE/04>{ " 

"Is this a pay back tour or billet: }<T . PAY2_BACK/01>< " 

"Sponsor Name }<T . SPONS2_NM/27>( " 

"Sponsor Address }<T . SPONS2_ADDR1/20>< " 

" }<T.SPONS2_ADDR2/20>{" 

" City }<T.SPONS2_CITY/20>( State }<0X 

<T.SPONS2_STATE/02>( Zip }<T . SPONS2_ZIP/10>{ " 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 



MATCH UIC_ACTUAL 

ON NOMATCH TYPE "AUIC NOMATCH " 

ON MATCH TYPE "AUIC MATCH " 

ON MATCH UPDATE BSC PUIC XUICl XBSCl PAY1_BACK SPONSl_NM 
ON MATCH UPDATE SP0NS1_ADDR1 SPONSl_ADDR2 SPONSl_ADDR3 
ON MATCH UPDATE SPONSl_CITY SPONSl_STATE SPONSl_ZIP RPT1_DATE 
ON MATCH UPDATE XUIC2 XBSC2 PAY2_BACK SPONS2_NM 
ON MATCH UPDATE SPONS2_ADDRl SPONS2_ADDR2 SPONS2_ADDR3 
ON MATCH UPDATE SPONS2_CITY SPONS2_STATE SPONS2_ZIP RPT2_DATE 
ON MATCH GOTO MODEDU 
ENDCASE 

CASE MODEDU 
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COMPUTE SSN = SSN; 

COLLEGE 1 = COLLEGE 1; 

CRTFORM LINE 01 

" OMFDAllP-1.4 Officer Master File System <0X 

&DATE” 

” Modify Screen 4" 

n n 

"<.HD.NAME/27>" 

"Please input current graduate data:" 

"COLLEGE NAME }<D . COLLEGEl /10>{ YEAR COMPLETED }<0X 

<T.YRCOMP1/02>{" 

"Level }<T.LEVEL1/01>< Major }<T .MAJOR1/02>{ Specialty 

<T.SPECl/02>{" 

it tt 

"Please input previous college data:” 

"College Name }<T.COLLEGE2/10>{ Year Completed }<0X 
<T. YRCOMP2/02>< " 

"Level }<T.LEVEL2/01>< Major }<T.MAJOR2/02>{ Specialty 

<T.SPEC2/02>{" 

"</05 " 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU” 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

MATCH SSN 

ON MATCH CONTINUE 
MATCH COLLEGEl 

ON NOMATCH TYPE "** ERROR IN MODEDU CASE ** ” 

ON MATCH TYPE "** Record has been modified: <NAME **" 

ON MATCH UPDATE YRCOMPl LEVELl MAJORl SPECl 
ON MATCH UPDATE COLLEGE2 YRCOMP2 LEVEL2 MAJOR2 SPEC2 
ENDCASE 

CASE ERRMSG 
CRTFORM LINE 1 

" *** Record NOT in data base. Use Add Menu to ADD. ***" 

ENDCASE 

DATA 

END 



}<0X 



}<0X 
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0MFDA12P FOCEXBC 



-* Program: 0MFDA12P 

-♦ This program is used to delete OMFX records. 

-* Files: OMFX FOCUS 

SET PF03 = RETURN 
SET PF15 = RETURN 
-RUN 

MODIFY FILE OMFX 
COMPUTE 

DUM/Al = ; 

PFKEY/A4 = ; 

GOTO BEGIN 

CASE BEGIN 
COMPUTE 

TSVC/A3 = 'NV 
CRTFORM LINE 01 TYPE 1 
” OMFDA12P-1.1 
&DATE " 



II II 

" Delete an Officer Master record by entering the following data:" 

II II 

" SSN <T.SSN/09>" 

"</09 

" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

COMPUTE 

SVC = TSVC; 

MATCH SVC 

ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH GOTO ERRMSG 

ON MATCH TYPE "** Record <SSN DELETED. Enter next SSN or exit. ** 
ON MATCH DELETE 
ENDCASE 

CASE ERRMSG 
COMPUTE SSN = SSN; 

CRTFORM LINE 1 

" *** RECORD <D.SSN NOT IN DATA BASE. •**" 

ENDCASE 

DATA 

END 



NAVAL POSTGRADUATE SCHOOL <0X 

OFFICER MASTER FILE SYSTEM" 

Delete Screen" 
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J. 



0MFDA15P FOCEXEC 



-* Program: 0MFDA15P 

-* This program is used for students to input their UIC and BSC that 
they are transferring to. 

-★ 

-* Files: OMFX FOCUS — indexes by SSN 

SET PF03 = RETURN 
SET PF15 = RETURN 

CMS FILEDEF OMFNOSSN DISK OMFNOSSN DATA A (LRECL 100 RECFM FB DISP MOD) 

MODIFY FILE OMFX. SSN 

LOG NOMATCH ON OMFNOSSN MSG OFF 

COMPUTE 

DUM/Al = ; 

PFKEY/A4 = ; 

GOTO BEGIN 



CASE BEGIN 
COMPUTE 

DOC_NUM/A8 = ' ' ; 
AC_NUM/A2 = " ; 
CRTFORM LINE 01 TYPE 
" OMFDA15P-1.0 
&DATE" 



II 



SVC &&SVC 

Officer Master File System" 
Edit Screen" 



"</01 " 

" Enter SSN }<SSN/09>{ 

"</13 " 

" PRESS ENTER to Continue or PF3 to Quit 

IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

MATCH SSN 

ON NOMATCH TYPE 

"**SSN } <SSN { IS NOT ON FILE**" 

ON NOMATCH REJECT 
ON MATCH GOTO EDINFO 
ENDCASE 



<0X 



CASE EDINFO 
NEXT UIC_ACTUAL 
ON NEXT 

CRTFORM LINE 04 
" <.HD.NAME/27>" 

" PLEASE PROVIDE THE FOLLOWING INFORMATION..." 

If If 

"NEXT tour of duty assignment:" 

"UIC }<T.UIC1_X_TO/05>< BSC }<T . BSC1_X_TO/05>{ ETS (YM) }<0X 
<T . RPTl_DATE/04>< " 

"Is this a pay back tour or billet: }<T.PAY1_BACK/01>{ " 

"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 

"Sponsor Name }<T.SPONSl_NM/27>{ " 

"Sponsor Address }<T.SPONS1_ADDR1/20>< " 

" }<T.SPONS1_ADDR2/20>{" 

" City }<T.SPONS1_CITY/20>< State }<0X 

<T.SPONS1_STATE/02>{ Zip }<T. SPONS1_ZIP/10>{ " 

"FOLLOWING tour of duty:" 

"UIC }<T,UIC2_X_TO/05>{ BSC }<T . BSC2_X_TO/05>{ ETS (YM) }<0X 
<T.RPT2_DATE/04>{" 

"Is this a pay back tour or billet: }<T.PAY2_BACK/01>{ " 

"Sponsor Name }<T.SPONS2_NM/27>{ " 
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"Sponsor Address }<T. SPONS2_ADDR1/20>{ " 

" }<T.SPONS2_ADDR2/20>{" 

" City }<T.SPONS2_CITY/20>{ State }<0X 

<T.SPONS2_STATE/02>{ Zip }<T. SPONS2_ZIP/10>{ " 

tf II 

"***PRESS TAB to Next Field, ENTER to Add Data, or PF3 to 
IF PFKEY EQ 'PF03' OR 'PF15' THEN GOTO EXIT; 

ON NEXT TYPE 

”<40 UIC/BSC INFORMATION UPDATED" 

ON NEXT UPDATE UICl_X_TO BSCl_X_TO PAY1_BACK 

ON NEXT UPDATE SP0NS1_ADDR1 SPONSl_ADDR2 SPONSl_ADDR3 

ON NEXT UPDATE SPONSl_CITY SPONSl_STATE SPONSl_ZIP 

ON NEXT UPDATE UIC2_X_TO BSC2_X_TO PAY2_BACK 

ON NEXT UPDATE SPONS2_ADDRl SPONS2_ADDR2 SPONS2_ADDR3 

ON NEXT UPDATE SPONS2_CITY SPONS2_STATE SPONS2_ZIP 

ON NONEXT TYPE 

"<40 UIC }<UIC_ACTUAL { DOES NOT MATCH" 

ON NONEXT GOTO BEGIN 
ENDCASE 

DATA 

END 



Quit***" 

SPONSl_NM 

RPT1_DATE 

SPONS2_NM 

RPT2 DATE 
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K. OMFDAIOR FOCEXEC 



-* PROGRAM: OMFDAIOR FOCEXEC 

-* THIS PROGRAM PRODUCES A LISTING OF KEY ELEMENTS OF OMFX . 

-★ 

J. HARR APR 1993 
OFFLINE CLOSE 
CMS FILEDEF OFFLINE CLEAR 

CMS FILEDEF OFFLINE DISK OMFDAIOR LISTING T (LRECL 132 RECFM F 
TABLE FILE OMFX 

"REPORT NO:OMFDAlOR NAVAL POSTGRADUATE SCHOOL 

<+14 PAGE NO: <+4 <TABPAGENO> " 

"PREPARED: &DATE NAVY OMFX " 

PRINT SSN NAME 

AUIC AS ' CURRENT, UIC' 

BSC AS 'CURRENT, BSC' 

XUICl AS 'TRANSFER, TO UIC' 

XBSCl AS 'TRANSFER, TO BSC' 

COLLEGE 1 AS 'COLLEGE' 

YRCOMPl AS 'YEAR, COMP' 

MAJOR 1 AS 'MAJOR' 

SPECl AS 'SPEC' 

BY SVC NOPRINT 

END 

-RUN 

-CMS XEDIT OMFDAIOR LISTING T 
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L. OMFDA20R FOCEXEC 



-* PROGRAM: OMFDA20R FOCEXEC 

-* THIS PROGRAM COUNTS ALL HOLDERS OF SUBSPECIALTIES GRANTED BY 
-* NPS REGARDLESS OF WHERE AN OFFICER OBTAINED THEM. THE REPORT 
-* IS GROUPED BY SUBSPECIALTY. 

-* AUTHOR: HOWARD MORTON 

-• MODIFIED: J. HARR APRIL 1993 
OFFLINE CLOSE 
CMS FILEDEF OFFLINE CLEAR 

CMS FILEDEF OFFLINE DISK OMFDA20R LISTING T (LRECL 132 RECFM F 
TABLE FILE OMFX 

PRINT SUBSPECl COLLEGE 1 COLLEGE2 



IF 


SUBSPECl IS '$$42$ 


' OR 


'$$43$ 


' OR '$$45$ 


' OR 


'$$76$ 


OR 


'$$91$' 


OR '$$89$' 


OR ' 


'$$48$' 


OR '$$47$' 


OR 


'$$49$' 


OR 


'$$41$' 


OR '$$44$' 


OR ' 


'$$61$' 


OR '$$63$' 


OR 


'$$67$' 


OR 


'$$56$' 


OR '$$54$' 


OR ' 


'$$55$' 


OR '$$77$' 


OR 


'$$46$' 


OR 


'$$81$' 


OR '$$71$' 


OR ‘ 


'$$72$' 


OR '$$21$' 


OR 


'$$22$' 


OR 


'$$23$' 


OR '$$24$' 


OR ' 


'$$28$' 


OR '1304$' 


OR 


'$$35$' 


OR 


' 1306$' 


OR '1302$' 


OR ' 


'$$17$' 


OR '$$32$' 


OR 


'$$31$' 



OR '$$33$' OR '$$95$' 

ON TABLE HOLD AS HOWARD 

END 

DEFINE FILE HOWARD 

TRAINING/A? =IF COLLEGEl OMITS 'MONTEREY' AND COLLEGE2 OMITS 'MONTEREY' 
THEN 'NON-NPS' ELSE ' NPS ' ; 

SSC/A2 = EDIT (SUBSPECl, '$$99$'); 

SFX/Al = EDIT (SUBSPECl, '$$$$9'); 

CURRICULUM/A38 = DECODE SSC 
('42' 'OPERATIONS ANALYSIS' 

'43' 'OPERATIONAL LOGISTICS' 

'45' 'COMMAND, CONTROL AND COMMUNICATIONS' 

'76' 'SPACE SYSTEMSOPERATIONS ' 

'91' 'COMPUTER SCIENCE' 

'95' 'COMPUTER SYSTEMS MANAGEMENT' 

'89' 'INFORMATION TECHNOLOGY MANAGEMENT' 

'48' 'METEOROLOGY' 

'47' 'AIR-OCEAN SCIENCES' 

'49' 'OCENAOGRAPHY' 

'44' 'ASW SYSTEMS' 

'61' 'WEAPONS SYSTEMS ENGINEERING' 

'63' 'WEAPONS SYSTEMS SCIENCES (PHYSICS)' 

'67' 'NUCLEAR PHYSICS (WEAPONS AND EFFECTS)' 

'56' 'UNDERWATER ACOUSTICS' 

'54' 'NAVAL/MECHANICAL ENGINEERING' 

'55' 'ELECTRONIC SYSTEMS ENGINEERING' 

'77' 'SPACE SYSTEMS ENGINEERING' 

'46' 'EW SYSTEMS ENGINEERING' 

'81' ' COMMUNICATIONS ENGINEERING ' 

'71' 'AERONAUTICAL ENGINEERING' 

'72' 'AERONAUTICAL ENGINEERING-AVIONICS' 

'21' 'NSA - MIDEAST, AFRICA, SOUTH ASIA' 

'22' 'NSA - FAR EAST, SE ASIA, PACIFIC' 

'23' 'NSA - WESTERN HEMISPHERE' 

'24' 'NSA - EUROPE, USSR' 

'28' 'NSA - STRATEGIC PLANNING' 

'04' 'TRANSPORTATION LOGISTICS MANAGEMENT' 

'35' 'TRANSPORTATION MANAGEMENT' 

'06' 'ACQUISITIONS & CONTRACT MANAGEMENT' 

'02' 'SYSTEMS INVENTORY MANAGEMENT' 

'17' 'INTELLIGENCE' 

'32' 'MATERIAL LOGISTICS SUPPORT MANAGEMENT' 
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'31' 'FINANCIAL 
'33' 'MANPOWER, 

END 

TABLE FILE HOWARD 
"REPORT NO:OMFDA20R 
<+14 PAGE NO: <+4 

"PREPARED: &DATE 



MANAGEMENT ' 

PERS & TRAINING 



ANALYSIS' ) 



NAVAL POSTGRADUATE SCHOOL 
<TABPAGENO> " 

US NAVY OFFICER SUBSPECIALTY INVENTORY" 



" (CATEGORIZED BY SUBSPECIALTY, SUFFIC AND NPS ATTENDANCE)" 

COUNT SUBSPECl ACROSS TRAINING AND ROW-TOTAL AND COLUMN-TOTAL 
BY CURRICULUM UNDER-LINE NOSPLIT 
BY SSC SUBTOTAL 
BY SFX AS 'CODE' 

WHERE SFX IS 'S' OR 'R' OR 'G' OR 'F' OR 'P' OR 'Q' OR 'N' OR 'M' OR 'D' 
OR 'C' 

FOOTING 

"SUPSPEC CODES:" 



"S = 
"G = 

,,p = 

"M = 
»D = 
END 
-RUN 
-CMS 



PROVEN) 

PROVEN) 



NO MS (EXPER, NOT 
LESS THEN MS (NOT 
MS (NOT PROVEN) 
POST-MS (NOT PROVEN) 
DOCTOR (NOT PROVEN) 



XEDIT OMFDA20R LISTING T 



R = NO MS (EXPER, PROVEN) 
F = LESS THEN MS (PROVEN) 
Q = MS (PROVEN)" 

N = POST-MS (PROVEN)" 

C = DOCTOR (PROVEN)" 



47 



M. USEOMF FOCEXEC 



SET PASS = XXXXXX 
UE OMFX FOCUS A 
END 



APPENDIX C: USERS GUIDE 



A. INTRODUCTION 

1. This prototype was developed in response to questions 
posed by Dean Elster regarding status of NPS Navy students 
after graduation. The instructions will address using the 
system to update personnel information. The OMF system 
resides on the NPS Computer Center mainframe. 

2 . The user needs basic knowledge of a CMS user account 
and basic knowledge of FOCUS (for TABLETALK) . Passwords for 
logging on to the account can be provided by the Dean of 
Instruction . 

B. LOGGING ON 

1. There are two CMS accounts for the OMF system: the 
data base account and the user account. The data base account 
must be initiated as a SINK machine in order to provide 
simultaneous updating of the OMF records. 

2. Starting the SINK Machine: The OMF resides on account 
5010P. Log on to this account and execute the command 
STARTSU. This will make the account active as a SINK machine 
and will log you off automatically. 

3. Logging On as a User: For this prototype, user 
account 5011P is provided. To initiate a session, type 
STARTFOC. This will put the user in the FOCUS environment and 
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initiate his PROFILE FOCEXEC to provide the main menu 
sessions . 

C. SYSTEM MENUS 

1. A logo will appear on the screen, 'OMF', press ENTER 
to continue. The main menu provides the user with maintaining 
and reporting from the OMF data base . 



OMFDAOOO-1.0 Naval Postgraduate School 


OFFICER MASTER FILE SYSTEM 




OMF Main Edit Menu 


1. 


Add an Individual Record 


2 . 


Modify Individual Record 


3. 


Delete Individual record 


4. 


Add Transfer Data 


5. 


Display/Print Individual Records 


6. 


Display/Print Summary Report 


T. 


Report with TABLETALK 


X. 


EXIT 




Service — > NV 


OPTION 


} { 



Figure 1 OMF Main Edit Menu 



2 . To add or modify an existing record the menus are the 
same, the actions are different (include / update). 
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OMFDAlOP-1.1 Naval Postgraduate School 

Officer Master File System 
Add Screen 1 

Create an Officer master record by entering the following 
data : 

SSN: 

SVC; 

CURRENT UIC: 

COLLEGE : 



Figure 2 Add/Modify Screen 



OMFDAlOP-1.2 Naval Postgraduate School 

Officer Master File System 
Add Screen 2 



SSN: 

NAME (LAST FIRST MIDDLE): 

GENDER (F/M): ETS : 

YOS (1/2/3) : PAY GRADE: 

PROMOTION STATUS: 

YEAR GROUP: DESIGNATOR: 

SELECTION YEAR; INCREMENT: 



PROGRAM : 



Figure 3 Add/Modify Personnel Data 



OMFDAlOP-1.3 Officer Master File System 

Add Screen 3 

Please input UIC data,.. 

CURRENT UIC: CURRENT BSC: 

Is this a pay back tour or billet: 

( l=Yes; 2=Sch/Trng; 3=Unk; 4=No) 

UIC: BSC: ETS: 

Sponsor Name: 

Sponsor Address : 

FOLLOWING tour of duty: 

UIC: BSC: ETS: 

Is this a pay back tour or billet: 

Sponsor Name : 

Sponsor Address; 



Figure 4 Add/Modify UIC/BSC Data 
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OMFDAlOP-1.4 Officer Master File System 

Add Screen 4 



Please input current graduate data: 



COLLEGE NAME: 
Level: Major: 



Year Completed: 
Specialty ; 



Please input previous college data: 



COLLEGE NAME: 
Level: Major: 



Year Completed: 
Specialty: 



Figure 5 Add/Modify Education 



3. To delete a record from the OMF, the following screen 
requires entering the Navy officer's social security number. 



0MFDA12P-1.1 Naval Postgraduate School 
Officer Master File System 
Delete Screen 

Delete an Officer Master record by entering the 
following data: 



Figure 6 OMF Delete Menu 

Messages appear on the bottom of the screen indicating actions 
taken: Record <SSN> deleted; Record <Name> Added/Modified. 

D . REPORTS 

1. Two reports are provided for selection on the main 
menu as Options 5 and 6 . The individual and summary report 



SSN 
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samples are provided at Appendix B . The TABLETALK report 
writer is window driven and provides the user an easy tool for 
producing other reports as required. Knowledge of the FOCUS 
environment is helpful. The PF3 is a quit key and the TAB is 
used to go from line to line. Hitting ENTER allows you to see 
the next menu. 

E. LOGGING OFF 

1. To end the session on the users account, enter X to 
exit. To log off the CMS account, enter LOG. 

2. Be sure to bring down the SINK when you are finished: 
Log on to account 5010P and type STOP and press ENTER, then 
LOG off the account. 
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